Imports Clo = Enhancements.Core.Logging
Imports Ref = System.Reflection
Imports Sys = System

Namespace Enhancements.Basic
    ''' <summary>The exception that is thrown when a string is not empty.</summary>
    <Serializable(), DebuggerStepThrough()> _
    Public NotInheritable Class IsEmptyNotException
        Inherits AssertException

        Private Sub New(ByVal _objectName As System.String)
            MyBase.New(_objectName)
        End Sub

        ''' <summary>Throws an exception.</summary>
        ''' <param name="_objectName">Name of the object that is causing the exception.</param>
        ''' <exception cref="IsEmptyNotException"> </exception>
        Friend Shared Sub ___Throw(ByVal _objectName As System.String)
            Dim _exception As IsEmptyNotException = New IsEmptyNotException(_objectName)

            Throw _exception
        End Sub

    End Class
End Namespace
